object ConvertForm: TConvertForm
  Left = 463
  Top = 115
  BorderStyle = bsDialog
  Caption = 'ConvertForm'
  ClientHeight = 225
  ClientWidth = 155
  Color = 16572873
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupLabel: TLabel
    Left = 8
    Top = 8
    Width = 29
    Height = 13
    Caption = 'Grupo'
  end
  object FromLabel: TLabel
    Left = 8
    Top = 56
    Width = 40
    Height = 13
    Caption = 'Entrada:'
  end
  object ToLabel: TLabel
    Left = 8
    Top = 104
    Width = 32
    Height = 13
    Caption = 'Sa'#237'da:'
  end
  object OutNLabel: TLabel
    Left = 8
    Top = 152
    Width = 27
    Height = 13
    Caption = 'Valor:'
  end
  object OutLabel: TLabel
    Left = 9
    Top = 168
    Width = 137
    Height = 16
    Hint = 'Valor convertido.'
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'OutLabel'
    Color = 16366984
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object GroupCombo: TComboBox
    Left = 5
    Top = 24
    Width = 145
    Height = 21
    Hint = 'Seleciona o tipo de unidade para converter.'
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = GroupComboChange
  end
  object InCombo: TComboBox
    Left = 5
    Top = 72
    Width = 145
    Height = 21
    Hint = 
      'Seleciona a unidade de entrada do conversor que ser'#225' associada a' +
      'o valor X.'
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 1
    OnChange = InComboChange
  end
  object OutCombo: TComboBox
    Left = 5
    Top = 120
    Width = 145
    Height = 21
    Hint = 'Seleciona para qual unidade o valor de X ser'#225' convertido.'
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnChange = OutComboChange
  end
  object CopyBtn: TBitBtn
    Left = 29
    Top = 200
    Width = 97
    Height = 17
    Hint = 'Copia para X o valor convertido.'
    Caption = '--->'
    TabOrder = 3
    OnClick = CopyBtnClick
  end
  object SwapBtn: TBitBtn
    Left = 88
    Top = 97
    Width = 20
    Height = 20
    Hint = 'Inverte unidades de origem e destino'
    TabOrder = 4
    OnClick = SwapBtnClick
    Glyph.Data = {
      7E000000424D7E000000000000003E0000002800000010000000100000000100
      010000000000400000000000000000000000020000000000000000000000FFFF
      FF00FFFF0000FFFF0000C7DF0000C7EF0000E7EF0000EFEF0000DFF70000DFF7
      0000DFF70000DFF70000EFEF0000EFCF0000EFC70000F7C70000FFFF0000FFFF
      0000}
  end
end
